home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 May / may_2001.iso / intercd / root / Multimedia / Image / ^iShell / setup.exe / Main / ToolsSpecial.k < prev    next >
Encoding:
Text File  |  2001-03-26  |  15.6 KB  |  306 lines
  1. module oSpecialPlugin is cPlugin
  2. has
  3.     Initialize()
  4.         do
  5.             oCache.URLOptionType := cURLOption;
  6.         end;
  7.         
  8.     release Editor:
  9.         GetIO()
  10.             do
  11.                 result := oIOSpecialPlugin;
  12.             end;
  13.     end;
  14. end;
  15.  
  16. release Editor:
  17.  
  18. object oIOSpecialPlugin is cIOPlugin
  19. with
  20.     MenuItems is [
  21.         cIOArgumentInMenuItem with Name is "Error Number"; Value is oErrorNumberArgumentIn; end,
  22.         cIOArgumentInMenuItem with Name is "Error Text"; Value is oErrorTextArgumentIn; end,
  23.         cIOArgumentInMenuItem with Name is "Message In"; Value is oMessageInArgumentIn; end,
  24.         cIOArgumentInMenuItem with Name is "Message Out"; Value is oMessageOutArgumentIn; end,
  25.         cIOArgumentInMenuItem with Name is "Message Sender"; Value is oMessageSenderArgumentIn; end,
  26.         cIOArgumentInMenuItem with Name is "No Parameter"; Value is oNoArgument; end,
  27.         
  28.         cIOArgumentOutMenuItem with Name is "Message Out"; Value is oMessageOutArgumentOut; end,
  29.         cIOArgumentOutMenuItem with Name is "No Parameter"; Value is oNoArgument; end,
  30.         
  31.         cIOURLOptionMenuItem with Name is "Document"; Value is cURLOption with end; end,
  32.         cIOURLOptionMenuItem with Name is "Project"; Value is cDiskURLOption with end; end,
  33.         cIOURLOptionMenuItem with Name is "Site"; Value is cSiteURLOption with end; end,
  34.  
  35.         cIOGetTypeOpMenuItem with Name is "..."; Value is oGetAnyValueOpSeed; Word is oIOGetAnyOpMenuButton; end,
  36.         cIOGetAnyOpMenuItem with Name is "Value"; Value is oGetAnyValueOpSeed; end,
  37.  
  38.         cIOSetTypeOpMenuItem with Name is "..."; Value is oSetAnyValueOpSeed; Word is oIOSetAnyOpMenuButton; end,
  39.         cIOSetAnyOpMenuItem with Name is "Value"; Value is oSetAnyValueOpSeed; end,
  40.  
  41.         cIOTestTypeOpMenuItem with Name is "..."; Value is oTestAnyEqualOpSeed; Word is oIOTestAnyOpMenuButton; end,
  42.         cIOTestAnyOpMenuItem with Name is "Different"; Value is oTestAnyDifferentOpSeed; end,
  43.         cIOTestAnyOpMenuItem with Name is "Equal"; Value is oTestAnyEqualOpSeed; end,
  44.  
  45.         cIOGetTypeOpMenuItem with Name is "Boolean"; Value is oGetBooleanValueOpSeed; Word is oIOGetBooleanOpMenuButton; end,
  46.         cIOGetBooleanOpMenuItem with Name is "Value"; Value is oGetBooleanValueOpSeed; end,
  47.  
  48.         cIOSetTypeOpMenuItem with Name is "Boolean"; Value is oSetBooleanValueOpSeed; Word is oIOSetBooleanOpMenuButton; end,
  49.         cIOSetBooleanOpMenuItem with Name is "Value"; Value is oSetBooleanValueOpSeed; end,
  50.         cIOSetBooleanOpMenuItem with Name is "And"; Value is oSetBooleanAndOpSeed; end,
  51.         cIOSetBooleanOpMenuItem with Name is "Or"; Value is oSetBooleanOrOpSeed; end,
  52.         cIOSetBooleanOpMenuItem with Name is "Toggle"; Value is oSetBooleanToggleOpSeed; end,
  53.         cIOSetBooleanOpMenuItem with Name is "Xor"; Value is oSetBooleanXorOpSeed; end,
  54.         
  55.         cIOTestTypeOpMenuItem with Name is "Boolean"; Value is oTestBooleanEqualOpSeed; Word is oIOTestBooleanOpMenuButton; end,
  56.         cIOTestBooleanOpMenuItem with Name is "Different"; Value is oTestBooleanDifferentOpSeed; end,
  57.         cIOTestBooleanOpMenuItem with Name is "Equal"; Value is oTestBooleanEqualOpSeed; end,
  58.  
  59.         cIOGetTypeOpMenuItem with Name is "Integer"; Value is oGetIntegerValueOpSeed; Word is oIOGetIntegerOpMenuButton; end,
  60.         cIOGetIntegerOpMenuItem with Name is "Value"; Value is oGetIntegerValueOpSeed; end,
  61.  
  62.         cIOSetTypeOpMenuItem with Name is "Integer"; Value is oSetIntegerValueOpSeed; Word is oIOSetIntegerOpMenuButton; end,
  63.         cIOSetIntegerOpMenuItem with Name is "Value"; Value is oSetIntegerValueOpSeed; end,
  64.         cIOSetIntegerOpMenuItem with Name is "Absolute"; Value is oSetIntegerAbsoluteOpSeed; end,
  65.         cIOSetIntegerOpMenuItem with Name is "Add"; Value is oSetIntegerAddOpSeed; end,
  66.         cIOSetIntegerOpMenuItem with Name is "Divide By"; Value is oSetIntegerDivideOpSeed; end,
  67.         cIOSetIntegerOpMenuItem with Name is "Maximum"; Value is oSetIntegerMaximumOpSeed; end,
  68.         cIOSetIntegerOpMenuItem with Name is "Minimum"; Value is oSetIntegerMinimumOpSeed; end,
  69.         cIOSetIntegerOpMenuItem with Name is "Modulo"; Value is oSetIntegerModuloOpSeed; end,
  70.         cIOSetIntegerOpMenuItem with Name is "Multiply"; Value is oSetIntegerMultiplyOpSeed; end,
  71.         cIOSetIntegerOpMenuItem with Name is "Random"; Value is oSetIntegerRandomOpSeed; end,
  72.         cIOSetIntegerOpMenuItem with Name is "Subtract"; Value is oSetIntegerSubtractOpSeed; end,
  73.         cIOSetIntegerOpMenuItem with Name is "Toggle"; Value is oSetIntegerToggleOpSeed; end,
  74.         
  75.         cIOTestTypeOpMenuItem with Name is "Integer"; Value is oTestIntegerEqualOpSeed; Word is oIOTestIntegerOpMenuButton; end,
  76.         cIOTestIntegerOpMenuItem with Name is "Different"; Value is oTestIntegerDifferentOpSeed; end,
  77.         cIOTestIntegerOpMenuItem with Name is "Equal"; Value is oTestIntegerEqualOpSeed; end,
  78.         cIOTestIntegerOpMenuItem with Name is "Less"; Value is oTestIntegerLessOpSeed; end,
  79.         cIOTestIntegerOpMenuItem with Name is "Less or Equal"; Value is oTestIntegerLessOrEqualOpSeed; end,
  80.         cIOTestIntegerOpMenuItem with Name is "More"; Value is oTestIntegerMoreOpSeed; end,
  81.         cIOTestIntegerOpMenuItem with Name is "More or Equal"; Value is oTestIntegerMoreOrEqualOpSeed; end,
  82.  
  83.         cIOGetTypeOpMenuItem with Name is "Real"; Value is oGetRealValueOpSeed; Word is oIOGetRealOpMenuButton; end,
  84.         cIOGetRealOpMenuItem with Name is "Value"; Value is oGetRealValueOpSeed; end,
  85.  
  86.         cIOSetTypeOpMenuItem with Name is "Real"; Value is oSetRealValueOpSeed; Word is oIOSetRealOpMenuButton; end,
  87.         cIOSetRealOpMenuItem with Name is "Value"; Value is oSetRealValueOpSeed; end,
  88.         cIOSetRealOpMenuItem with Name is "Absolute"; Value is oSetRealAbsoluteOpSeed; end,
  89.         cIOSetRealOpMenuItem with Name is "Add"; Value is oSetRealAddOpSeed; end,
  90.         cIOSetRealOpMenuItem with Name is "Arc Cosine"; Value is oSetRealArcCosineOpSeed; end,
  91.         cIOSetRealOpMenuItem with Name is "Arc Sine"; Value is oSetRealArcSineOpSeed; end,
  92.         cIOSetRealOpMenuItem with Name is "Arc Tangent"; Value is oSetRealArcTangentOpSeed; end,
  93.         cIOSetRealOpMenuItem with Name is "Ceiling"; Value is oSetRealCeilingOpSeed; end,
  94.         cIOSetRealOpMenuItem with Name is "Cosine"; Value is oSetRealCosineOpSeed; end,
  95.         cIOSetRealOpMenuItem with Name is "Divide By"; Value is oSetRealDivideOpSeed; end,
  96.         cIOSetRealOpMenuItem with Name is "Exponential"; Value is oSetRealExponentialOpSeed; end,
  97.         cIOSetRealOpMenuItem with Name is "Floor"; Value is oSetRealFloorOpSeed; end,
  98.         cIOSetRealOpMenuItem with Name is "Logarithm"; Value is oSetRealLogarithmOpSeed; end,
  99.         cIOSetRealOpMenuItem with Name is "Maximum"; Value is oSetRealMaximumOpSeed; end,
  100.         cIOSetRealOpMenuItem with Name is "Minimum"; Value is oSetRealMinimumOpSeed; end,
  101.         cIOSetRealOpMenuItem with Name is "Multiply"; Value is oSetRealMultiplyOpSeed; end,
  102.         cIOSetRealOpMenuItem with Name is "Power"; Value is oSetRealPowerOpSeed; end,
  103.         cIOSetRealOpMenuItem with Name is "Round"; Value is oSetRealRoundOpSeed; end,
  104.         cIOSetRealOpMenuItem with Name is "Square"; Value is oSetRealSquareOpSeed; end,
  105.         cIOSetRealOpMenuItem with Name is "Square Root"; Value is oSetRealSquareRootOpSeed; end,
  106.         cIOSetRealOpMenuItem with Name is "Sine"; Value is oSetRealSineOpSeed; end,
  107.         cIOSetRealOpMenuItem with Name is "Subtract"; Value is oSetRealSubtractOpSeed; end,
  108.         cIOSetRealOpMenuItem with Name is "Tangent"; Value is oSetRealTangentOpSeed; end,
  109.         cIOSetRealOpMenuItem with Name is "Toggle"; Value is oSetRealToggleOpSeed; end,
  110.         
  111.         cIOTestTypeOpMenuItem with Name is "Real"; Value is oTestRealEqualOpSeed; Word is oIOTestRealOpMenuButton; end,
  112.         cIOTestRealOpMenuItem with Name is "Different"; Value is oTestRealDifferentOpSeed; end,
  113.         cIOTestRealOpMenuItem with Name is "Equal"; Value is oTestRealEqualOpSeed; end,
  114.         cIOTestRealOpMenuItem with Name is "Less"; Value is oTestRealLessOpSeed; end,
  115.         cIOTestRealOpMenuItem with Name is "Less or Equal"; Value is oTestRealLessOrEqualOpSeed; end,
  116.         cIOTestRealOpMenuItem with Name is "More"; Value is oTestRealMoreOpSeed; end,
  117.         cIOTestRealOpMenuItem with Name is "More or Equal"; Value is oTestRealMoreOrEqualOpSeed; end,
  118.  
  119.         cIOGetTypeOpMenuItem with Name is "String"; Value is oGetStringValueOpSeed; Word is oIOGetStringOpMenuButton; end,
  120.         cIOGetStringOpMenuItem with Name is "Value"; Value is oGetStringValueOpSeed; end,
  121.         cIOGetStringOpMenuItem with Name is "Length"; Value is oGetStringLengthOpSeed; end,
  122.         cIOGetStringOpMenuItem with Name is "First Index"; Value is cGetStringFirstIndexOpSeed; end,
  123.         cIOGetStringOpMenuItem with Name is "Last Index"; Value is cGetStringLastIndexOpSeed; end,
  124.         cIOGetStringOpMenuItem with Name is "Next Index"; Value is cGetStringNextIndexOpSeed; end,
  125.         cIOGetStringOpMenuItem with Name is "Previous Index"; Value is cGetStringPreviousIndexOpSeed; end,
  126.  
  127.         cIOSetTypeOpMenuItem with Name is "String"; Value is oSetStringValueOpSeed; Word is oIOSetStringOpMenuButton; end,
  128.         cIOSetStringOpMenuItem with Name is "Value"; Value is oSetStringValueOpSeed; end,
  129.         cIOSetStringOpMenuItem with Name is "Append"; Value is oSetStringAppendOpSeed; end,
  130.         cIOSetStringOpMenuItem with Name is "Escape URL"; Value is oSetStringEscapeOpSeed; end,
  131.         cIOSetStringOpMenuItem with Name is "Insert"; Value is oSetStringInsertOpSeed; end,
  132.         cIOSetStringOpMenuItem with Name is "Lower Case"; Value is oSetStringLowerOpSeed; end,
  133.         cIOSetStringOpMenuItem with Name is "Remove"; Value is oSetStringRemoveOpSeed; end,
  134.         cIOSetStringOpMenuItem with Name is "Replace"; Value is oSetStringReplaceOpSeed; end,
  135.         cIOSetStringOpMenuItem with Name is "Reverse"; Value is oSetStringReverseOpSeed; end,
  136.         cIOSetStringOpMenuItem with Name is "Take"; Value is oSetStringTakeOpSeed; end,
  137.         cIOSetStringOpMenuItem with Name is "Trim"; Value is oSetStringTrimOpSeed; end,
  138.         cIOSetStringOpMenuItem with Name is "Upper Case"; Value is oSetStringUpperOpSeed; end,
  139.         
  140.         cIOTestTypeOpMenuItem with Name is "String"; Value is oTestStringEqualOpSeed; Word is oIOTestStringOpMenuButton; end,
  141.         cIOTestStringOpMenuItem with Name is "Begin With"; Value is oTestStringBeginWithOp; end,
  142.         cIOTestStringOpMenuItem with Name is "Contain"; Value is oTestStringContainOp; end,
  143.         cIOTestStringOpMenuItem with Name is "Different"; Value is oTestStringDifferentOpSeed; end,
  144.         cIOTestStringOpMenuItem with Name is "End With"; Value is oTestStringEndWithOp; end,
  145.         cIOTestStringOpMenuItem with Name is "Equal"; Value is oTestStringEqualOpSeed; end,
  146.         cIOTestStringOpMenuItem with Name is "Less"; Value is oTestStringLessOpSeed; end,
  147.         cIOTestStringOpMenuItem with Name is "Less or Equal"; Value is oTestStringLessOrEqualOpSeed; end,
  148.         cIOTestStringOpMenuItem with Name is "More"; Value is oTestStringMoreOpSeed; end,
  149.         cIOTestStringOpMenuItem with Name is "More or Equal"; Value is oTestStringMoreOrEqualOpSeed; end,
  150.  
  151.         cIOGetTypeOpMenuItem with Name is "Target"; Value is oGetTargetValueOpSeed; Word is oIOGetTargetOpMenuButton; end,
  152.         cIOGetTargetOpMenuItem with Name is "Value"; Value is oGetTargetValueOpSeed; end,
  153.  
  154.         cIOSetTypeOpMenuItem with Name is "Target"; Value is oSetTargetValueOpSeed; Word is oIOSetTargetOpMenuButton; end,
  155.         cIOSetTargetOpMenuItem with Name is "Value"; Value is oSetTargetValueOpSeed; end,
  156.  
  157.         cIOTestTypeOpMenuItem with Name is "Target"; Value is oTestTargetEqualOpSeed; Word is oIOTestTargetOpMenuButton; end,
  158.         cIOTestTargetOpMenuItem with Name is "Different"; Value is oTestTargetDifferentOpSeed; end,
  159.         cIOTestTargetOpMenuItem with Name is "Equal"; Value is oTestTargetEqualOpSeed; end,
  160.  
  161.         cIOGetTypeOpMenuItem with Name is "URL"; Value is oGetURLValueOpSeed; Word is oIOGetURLOpMenuButton; end,
  162.         cIOGetURLOpMenuItem with Name is "Value"; Value is oGetURLValueOpSeed; end,
  163.         cIOGetURLOpMenuItem with Name is "Fragment"; Value is oGetURLFragmentOpSeed; end,
  164.         cIOGetURLOpMenuItem with Name is "Host"; Value is oGetURLHostOpSeed; end,
  165.         cIOGetURLOpMenuItem with Name is "Password"; Value is oGetURLPasswordOpSeed; end,
  166.         cIOGetURLOpMenuItem with Name is "Path"; Value is oGetURLPathOpSeed; end,
  167.         cIOGetURLOpMenuItem with Name is "Port"; Value is oGetURLPortOpSeed; end,
  168.         cIOGetURLOpMenuItem with Name is "Query"; Value is oGetURLQueryOpSeed; end,
  169.         cIOGetURLOpMenuItem with Name is "Scheme"; Value is oGetURLSchemeOpSeed; end,
  170.         cIOGetURLOpMenuItem with Name is "User"; Value is oGetURLUserOpSeed; end,
  171.  
  172.         cIOSetTypeOpMenuItem with Name is "URL"; Value is oSetURLValueOpSeed; Word is oIOSetURLOpMenuButton; end,
  173.         cIOSetURLOpMenuItem with Name is "Value"; Value is oSetURLValueOpSeed; end,
  174.         cIOSetURLOpMenuItem with Name is "Merge"; Value is oSetURLMergeOpSeed; end,
  175.         cIOSetURLOpMenuItem with Name is "Fragment"; Value is oSetURLFragmentOpSeed; end,
  176.         cIOSetURLOpMenuItem with Name is "Host"; Value is oSetURLHostOpSeed; end,
  177.         cIOSetURLOpMenuItem with Name is "Password"; Value is oSetURLPasswordOpSeed; end,
  178.         cIOSetURLOpMenuItem with Name is "Path"; Value is oSetURLPathOpSeed; end,
  179.         cIOSetURLOpMenuItem with Name is "Port"; Value is oSetURLPortOpSeed; end,
  180.         cIOSetURLOpMenuItem with Name is "Query"; Value is oSetURLQueryOpSeed; end,
  181.         cIOSetURLOpMenuItem with Name is "Scheme"; Value is oSetURLSchemeOpSeed; end,
  182.         cIOSetURLOpMenuItem with Name is "User"; Value is oSetURLUserOpSeed; end,
  183.  
  184.         cIOTestTypeOpMenuItem with Name is "URL"; Value is oTestURLEqualOpSeed; Word is oIOTestURLOpMenuButton; end,
  185.         cIOTestURLOpMenuItem with Name is "Different"; Value is oTestURLDifferentOpSeed; end,
  186.         cIOTestURLOpMenuItem with Name is "Equal"; Value is oTestURLEqualOpSeed; end,
  187.  
  188.         cIOValueTypeMenuItem 
  189.         with 
  190.             Name is "Boolean"; 
  191.             Value is BOOLEAN; 
  192.             Word is cIOWordInclude
  193.             with
  194.                 Words is [
  195.                     cIORadioButton 
  196.                     with 
  197.                         Field is Value; 
  198.                         Text is "true"; 
  199.                         Value is true; 
  200.                         Width is 6; 
  201.                     end,
  202.                     cIORadioButton 
  203.                     with 
  204.                         Field is Value; 
  205.                         Text is "false"; 
  206.                         Value is false; 
  207.                         Width is 6; 
  208.                     end
  209.                 ];
  210.             end;
  211.         end,
  212.         cIOValueTypeMenuItem 
  213.         with 
  214.             Name is "Integer"; 
  215.             Value is INTEGER; 
  216.             Word is cIOIntegerBox
  217.             with
  218.                 Field is Value;
  219.                 Width is 8; 
  220.             end;
  221.         end,
  222.         cIOValueTypeMenuItem 
  223.         with 
  224.             Name is "None"; 
  225.             Value is NONE; 
  226.             Word is cIOLeftLabel
  227.             with
  228.                 Text is "void";
  229.                 Width is 6; 
  230.             end;
  231.         end,
  232.         cIOValueTypeMenuItem 
  233.         with 
  234.             Name is "Real"; 
  235.             Value is REAL; 
  236.             Word is cIORealBox
  237.             with
  238.                 Field is Value;
  239.                 Width is 8; 
  240.             end;
  241.         end,
  242.         cIOValueTypeMenuItem 
  243.         with 
  244.             Name is "String"; 
  245.             Value is STRING; 
  246.             Word is cIOStringBox
  247.             with
  248.                 Field is Value;
  249.                 Range is [0, 255]; 
  250.                 Width is 30; 
  251.             end;
  252.         end,
  253.         cIOValueTypeMenuItem 
  254.         with 
  255.             Name is "Target"; 
  256.             Value is cTarget; 
  257.             Word is cIOValueWord
  258.             with
  259.                 Field is Value;
  260.             end;
  261.         end,
  262.         cIOValueTypeMenuItem 
  263.         with 
  264.             Name is "URL"; 
  265.             Value is cURLOption; 
  266.             Word is oIOURLOptionMenuButton;
  267.         end
  268.     ];
  269.     EventLines is [
  270.         cIOSeedListLine 
  271.         with 
  272.             Label is oIOSpecialLabel;
  273.             Lines is [
  274.                 cIOSeedLine with IO is oIOErrorEvent; end,
  275.                 cIOSeedLine with IO is oIOTokenEvent; end
  276.             ];
  277.         end
  278.     ];
  279.     CommandLines is [
  280.         cIOSeedListLine 
  281.         with 
  282.             Label is oIOSpecialLabel;
  283.             Lines is [
  284.                 cIOSeedLine with IO is oIOTokenCommand; end,
  285.                 cIOSeedLine with IO is oIOGetAttributeCommand; end,
  286.                 cIOSeedLine with IO is oIOSetAttributeCommand; end,
  287.                 cIOSeedLine with IO is oIOGetPropertyCommand; end,
  288.                 cIOSeedLine with IO is oIOSetPropertyCommand; end,
  289.                 cIOSeedLine with IO is oIOGetCommand; end,
  290.                 cIOSeedLine with IO is oIOSetCommand; end,
  291.                 cIOSeedLine with IO is oIOIfCommand; end,
  292.                 cIOSeedLine with IO is oIOElseIfCommand; end,
  293.                 cIOSeedLine with IO is oIOElseCommand; end,
  294.                 cIOSeedLine with IO is oIOWhileCommand; end,
  295.                 cIOSeedLine with IO is oIOBreakCommand; end,
  296.                 cIOSeedLine with IO is oIOErrorCommand; end,
  297.                 cIOSeedLine with IO is oIOCommentCommand; end,
  298.                 cIOSeedLine with IO is oIOLogCommand; end,
  299.                 cIOSeedLine with IO is oIOReadWriteGlobalsCommand; end
  300.             ];
  301.         end
  302.     ];
  303. end;
  304.  
  305. end; -- release Editor
  306.